<script>on mouseDownsend mouseDown to bkgnd field "MenuTitle"end mouseDown</script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>99</left>
<top>24</top>
<right>222</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Week</name>
<script></script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>45</left>
<top>59</top>
<right>64</right>
<bottom>77</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 1</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 0else jumpTo 0end ifend mouseUp</script>
</part>
<part>
<id>55</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>45</left>
<top>76</top>
<right>260</right>
<bottom>122</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 1 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Monday"end mouseUp</script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>45</left>
<top>124</top>
<right>64</right>
<bottom>142</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 2</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 1else jumpTo 1end ifend mouseUp</script>
</part>
<part>
<id>56</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>45</left>
<top>141</top>
<right>260</right>
<bottom>187</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 2 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Tuesday"end mouseUp</script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>45</left>
<top>189</top>
<right>64</right>
<bottom>207</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 3</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 2else jumpTo 2end ifend mouseUp</script>
</part>
<part>
<id>57</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>45</left>
<top>206</top>
<right>260</right>
<bottom>252</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 3 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Wednesday"end mouseUp</script>
</part>
<part>
<id>54</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>45</left>
<top>254</top>
<right>64</right>
<bottom>272</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 4</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 3else jumpTo 3end ifend mouseUp</script>
</part>
<part>
<id>58</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>45</left>
<top>271</top>
<right>260</right>
<bottom>317</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 4 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Thursday"end mouseUp</script>
</part>
<part>
<id>49</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>268</left>
<top>89</top>
<right>287</right>
<bottom>107</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 5</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 4else jumpTo 4end ifend mouseUp</script>
</part>
<part>
<id>59</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>268</left>
<top>106</top>
<right>483</right>
<bottom>152</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 5 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Friday"end mouseUp</script>
</part>
<part>
<id>50</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>268</left>
<top>154</top>
<right>287</right>
<bottom>172</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 6</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 5else jumpTo 5end ifend mouseUp</script>
</part>
<part>
<id>60</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>268</left>
<top>171</top>
<right>483</right>
<bottom>217</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 6 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Saturday"end mouseUp</script>
</part>
<part>
<id>53</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>268</left>
<top>219</top>
<right>287</right>
<bottom>237</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>Day 7</name>
<script>on mouseUpif the optionKey is down thenif the shiftKey is down thencompileInfo 6else jumpTo 6end ifend mouseUp</script>
</part>
<part>
<id>61</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>268</left>
<top>236</top>
<right>483</right>
<bottom>282</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Day 7 Text</name>
<script>on mouseUpsend mouseUp to bkgnd button "Sunday"end mouseUp</script>
</part>
<part>
<id>80</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>435</left>
<top>286</top>
<right>470</right>
<bottom>320</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>31685</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>on mouseUppush card -- remember where we came from.visual iris opengo card "Help Weekly 1"end mouseUp</script>
</part>
<part>
<id>81</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>385</left>
<top>308</top>
<right>432</right>
<bottom>323</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Section Navigation</name>
<script></script>
</part>
<part>
<id>82</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>335</left>
<top>308</top>
<right>388</right>
<bottom>323</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Workout Navigation</name>
<script>-- Go to the weekly card containing the date specified.on mouseUpglobal dayNamesask "Go to which week?" with the short dateif it is empty then exit mouseUpput it into searchDateconvert searchDate to secondsif the result is not empty then exit mouseUp -- invalid date-- calculate what Monday corresponds to this dateput startOfWeek(searchDate,item 1 of dayNames) into theDatevisual effect dissolve fastgo card theDateend mouseUp</script>
<script>on mouseUpif the commandKey is down then-- go to the last card in this sectionif the ID of this card <> (the ID of last card of this bkgnd) thenvisual effect wipe left to blackvisual effect wipe left to cardgo last card of this bkgndend ifelse -- just go to next weekvisual effect wipe leftif the ID of this cd <> the ID of last cd of this bg then go nextend ifend mouseUp</script>
</part>
<part>
<id>86</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>341</left>
<top>288</top>
<right>362</right>
<bottom>310</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev Day</name>
<script>on mouseUpif the commandKey is down then-- go to the first card in this sectionif the ID of this card <> (the ID of first card of this bkgnd) thenvisual effect wipe right to blackvisual effect wipe right to cardgo first card of this bkgndend ifelse -- just go to previous weekvisual effect wipe rightif the ID of this cd <> the ID of cd 1 of this bg then go prevend ifend mouseUp</script>
</part>
<part>
<id>100</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>400</left>
<top>25</top>
<right>472</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>MenuTitle</name>
<script>on mouseDownglobal scriptCallerput bkgnd field "WeeklyMenu" into MenuOptionsput fullHPop (MenuOptions,"400,41",0) into theOptionif theOption is empty then exit mouseDownelse if item 1 of theOption = "Extend…" thenif item 2 of theOption is empty thenexit mouseDown -- user must make choice -> exitelseget getStartDate (item 2 of theOption) -- bkgnd scriptif it is not empty then extend (it) -- ibid.end ifelse if item 1 of theOption = "Delete…" thenif the number of cards of this bkgnd > 1 thenif (item 2 of theOption is empty) or¬(word 1 of item 2 of theOption = "This") then-- Remove card(s) if user really wants toanswer "Are you sure you want to delete this card?"¬with "Yes" or "No"if it is "Yes" thenput true into scriptCallerdoMenu "Delete Card"put false into scriptCallerend if-- make sure we are left in weekly log sectionif the short name of this bkgnd <> "Weekly Log" thengo prevend ifelse-- Check how many to delete (don't allow to delete all)put the number of cards of this bkgnd into nrCardsput the number of this card into thisCardput the number of card 1 of this bkgnd into firstCardput nrCards - (thisCard-firstCard) into maxToDeleteif thisCard = firstCard then subtract 1 from maxToDeleteask "Delete how many cards (0-" & maxToDelete & ")?" with 1if (it is empty) or (it <= 0)¬or (it > maxToDelete) then exit mouseDownrepeat with x = 1 to itdoMenu "Delete Card"end repeatif the short name of this bkgnd <> "Weekly Log" thengo prev -- remain within sectionend ifend ifelse answer "You cannot delete the last weekly log card."else if item 1 of theOption = "Clear card" thenrepeat with x = 1 to 8 -- 7 days + notes fieldput empty into bkgnd field (2*x)end repeatelse if item 1 of theOption = "Read in…" thenif (item 2 of theOption is empty)¬or (item 2 of theOption = "All") thenrepeat with x = 0 to 6compileInfo xend repeatelsecompileInfo ((item 4 of line 1 of theOption)-2)end ifelse -- item 1 of theOption = "Jump"if item 2 of theOption is not empty thenjumpTo ((item 4 of line 1 of theOption)-1)end ifend ifend mouseDown</script>
</part>
<part>
<id>103</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>282</left>
<top>40</top>
<right>512</right>
<bottom>229</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>WeeklyMenu</name>
<script></script>
</part>
<part>
<id>62</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <true /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>268</left>
<top>52</top>
<right>483</right>
<bottom>87</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Notes</name>
<script></script>
</part>
<part>
<id>111</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>302</left>
<top>38</top>
<right>319</right>
<bottom>53</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>BlowUp</name>
<script>on mouseUpput the rect of bkgnd field "Notes" into myRectif item 4 of myRect = 87 thenput 285 into item 4 of myRect -- blow upelse put 87 into item 4 of myRectset the rect of bkgnd field "Notes" to myRectend mouseUp</script>
<text>Extend…,Backward: to first workout,Forward: to last workout,Forward: n weeks from this cardDelete…,This card,N cardsClear card(--Read in…,All,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,SundayJump to…,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday</text>
</content>
<name>Weekly Log</name>
<script>-- Hidden field on this background: WeeklyMenu-- Make sure Notes field is small before we leave cardon closeCardput the rect of bkgnd field "Notes" into myRectif item 4 of myRect = 285 thenput 87 into item 4 of myRectset the rect of bkgnd field "Notes" to myRectend ifend closeCard-- Jump to the first workout card corresponding to this dayon jumpTo daysToAdd-- First get today's date & remember this cardput the short name of this card into theDateconvert theDate to secondsadd daysToAdd*86400 to theDate -- add appropriate number of days-- Jump to the first Workout on the date passed in, if any.visual effect zoom opengo card (theDate && 1)end jumpTo-- Compile information for all workouts on this dayon compileInfo daysToAddglobal firstDayOfWeek,dayNamesput 86400 into oneDay-- First get name of this field, and check if it already has dataput "Day" && (daysToAdd+1) && "Text" into fieldNameput item (daysToAdd+1) of dayNames into thisDayif bkgnd field fieldName is not empty thenanswer "Replace information already entered for " &¬thisDay & "?" with "Replace" or "Append" or "Cancel"if it is "Cancel" thenexit compileInfoelse put it into doReplaceelse put "Replace" into doReplaceput empty into totals-- Now get today's date & remember this cardset cursor to busyput the short name of this card into theDateadd daysToAdd*oneDay to theDate -- add appropriate number of daysput item ((daysToAdd+8) mod 7 +1) of dayNames into nextDay-- now go to the workout cards for this daypush cardlock screengo card (theDate && 1)-- If no workouts for today, may still want to display totalsif the result is not empty thenif nextDay = firstDayOfWeek then -- this is last day of weekanswer "Put weekly & yearly distance totals through"¬&& thisDay && "into the Notes field?"¬with "No" or "Yes"if it is "Yes" thenset cursor to busyshow messageput "Finding last day before " & thisDay & " on which you entered a workout..."put 0 into daysTriedgo card (theDate && 1)repeat while the result is not emptysubtract oneDay from theDateadd 1 to daysTriedgo card (theDate && 1)end repeathide messageput getTotals(daysTried<7) into Totalsend ifend ifpop cardif Totals is not empty then put Totals & return before bg fld "Notes"unlock screenexit compileInfoend if-- Gather all the workout information for this day-- 1. General dataput empty into workoutInfoif bkgnd field "Pulse" is not empty thenput "Pulse: " & bkgnd field "Pulse" & ". " into workoutInfoend ifif bkgnd field "Weight" is not empty thenput "Weight: " & bkgnd field "Weight" & "." after workoutInfoend ifif workoutInfo is not empty then put return after workoutInfo-- 2. Data for each workoutrepeat while word 1 of the short name of this card = theDateput getWorkout() & return after workoutInfogo nextend repeat-- 3. Totals, if applicableif nextDay = firstDayOfWeek then -- this is last day of weekanswer "Put weekly & yearly distance totals through"¬&& thisDay && "into the Notes field?"¬with "No" or "Yes"if it is "Yes" thenset cursor to busygo prev -- last card of the day in questionput getTotals(true) into Totalsend ifend if-- Return to original card and put the data into the fieldpop cardif doReplace = "Replace" thenput workoutInfo into bkgnd field fieldNameelse put return & workoutInfo after bkgnd field fieldNameif Totals is not empty then put Totals & return before bg fld "Notes"end compileInfo-- Compile a summary description of a workout from its card.function getWorkoutput bkgnd field "Sport" && "-" && bkgnd field "Type" into Workoutput bkgnd field "Effort" into tempdelete word 1 to 2 of temp -- effort number and hyphenput " - Effort: " & temp & "." & return after Workoutput bkgnd field "Workout" after Workoutput empty into quantitiesput bkgnd field "Distance" into tDistanceif item 1 of tDistance is not empty thenput item 1 of tDistance && bkgnd fld "DistanceUnit" after quantitiesif item 2 of tDistance is not empty thenput "(+" & item 2 of tDistance & " warmup)" after quantitiesend ifend ifput bkgnd field "Time" into tTimeif item 1 of tTime is not empty thenif quantities is not empty then put ", " after quantitiesput item 1 of tTime after quantitiesif bkgnd fld "TimeUnit" = "minutes" thenput " min." after quantitieselse put " hrs." after quantitiesif item 2 of tTime is not empty thenput "(+" & item 2 of tTime & " warmup)" after quantitiesend ifend ifif bkgnd field "Pace" is not empty thenif quantities is not empty then put ", " after quantitiesput bkgnd fld "Pace" && bkgnd fld "PaceUnit" after quantitiesend ifif quantities is not empty then put ": " & quantities after Workoutput return after workoutput bkgnd field "Comments" after Workout-- strip blank lines off the bottom.repeat while the last line of Workout is emptydelete last line of Workoutend repeatreturn Workoutend getWorkout-- Get weekly and yearly distance & time totals as of last day of the week-- (assumed to be the card on which we currently are!)function getTotals doWeeklyglobal allSports,defaultUnits,firstDayOfWeekput bkgnd field "Totals" into totalDataif totalData is empty then return empty-- write results headerput "Totals (#, " & item 1 of defaultUnits & ", hours) through " &¬dayName (firstDayOfWeek,6) & ":" & return into theTotals-- now sort sports from most to least frequentrepeat with x = 1 to the number of items of allSportsput item x of allSports & "," before line x of totalDataend repeatput FullSort(totalData,"t=n","d=d","c=item 5") into totalData-- now list all totalsrepeat with x = 1 to the number of lines of totalDataput line x of totalData into thisLineput item 1 of thisLine & " -" into lineTotalif doWeekly and (item 2 of thisLine <> 0) thenput " week: " & item 2 of thisLine & ", " & item 3 of thisLine &¬", " & makeNiceTime ("hours", item 4 of thisLine) after lineTotalend ifif item 5 of thisLine <> 0 then-- separate ourselves from weekly totals, if necessaryif last char of lineTotal <> "-" thenput return & "        " after lineTotalend ifput " ytd: " & item 5 of thisLine & ", " & item 6 of thisLine &¬", " & makeNiceTime ("hours", item 7 of thisLine) after lineTotalend ifif the last char of lineTotal <> "-" thenput lineTotal & return after theTotalsend ifend repeatreturn theTotalsend getTotals-- Find out when to start adding weeks. There are three options:-- 1. Extend backwards: Make up weekly overview cards to cover-- from the first workout described in the stack to the present-- date (or to meet the earliest existing weekly card)-- 2. Extend forwards to most recent workout entered-- 3. Extend forwards from current card by N weeksfunction getStartDate theOptionglobal dayNamesput 604800 into oneWeek -- # seconds per weekif word 1 of theOption = "Backward:" then -- option 1.get word 1 of the short name of card 1 of bkgnd "Workouts"if it = "card" then -- empty card -> no workout cards yetanswer "Sorry, no workouts entered in log yet."elseput startOfWeek(it,item 1 of dayNames) into workoutWeek-- check if workout predates earliest weekly cardput the short name of card 1 of this bkgnd into firstWeekif word 1 of firstWeek = "card" then-- no weekly overview card yet => use current dateput startOfWeek(the date,item 1 of dayNames) into firstWeekif firstWeek <= workoutWeek thenput "," & 1 after workoutWeekelseput (firstWeek - workoutWeek)/oneWeek into nrWeeks-- add 1 week to include both endpointsput "," & (nrWeeks+1) after workoutWeekend ifelseif firstWeek <= workoutWeek thenanswer "Weekly cards already extend back to first workout"put empty into workoutWeekelseput "," & ((firstWeek - workoutWeek)/oneWeek) after workoutWeekend ifend ifend ifelse if word 3 of theOption = "last" then -- option 2.-- analogous to option 1, except in opposite directionget word 1 of the short name of last card of bkgnd "Workouts"if it = "card" thenanswer "Sorry, no workouts entered in log yet."elseput startOfWeek(it,item 1 of dayNames) into finalWeekput the short name of last card of this bkgnd into workoutWeekif word 1 of workoutWeek = "card" thenput startOfWeek(the date,item 1 of dayNames) into workoutWeekif workoutWeek >= finalWeek thenput "," & 1 after finalWeekelseput "," & ((finalWeek - workoutWeek)/oneWeek +1) after workoutWeekend ifelseadd oneWeek to workoutWeekif workoutWeek > finalWeek thenanswer "Weekly cards already extend ahead to last workout"put empty into finalWeekelseput "," & ((finalWeek - workoutWeek)/oneWeek +1) after workoutWeekend ifend ifend ifelse -- make n cards from this one -- option 3.put short name of this card into workoutWeekif word 1 of workoutWeek = "card" then -- no weekly cards -> start from todayput startOfWeek(the date,item 1 of dayNames) into workoutWeekput 52 into maxWeekselseadd oneWeek to workoutWeek -- don't duplicate this card-- check how many weeks till next weekly cardif (the ID of this card) = (the ID of last cd of this bkgnd) thenput 52 into maxWeekselseget the short name of next cardput (it - workoutWeek)/oneWeek into maxWeeksif maxWeeks = 0 thenanswer "There is no gap between this and the next weekly" &&¬"card, so adding cards after this one makes no sense."return emptyend ifend ifend ifask "Add how many weeks? (0-" & maxWeeks & ")" with 1if (it is empty) or (it < 1) or (it > maxWeeks) thenreturn emptyelse put "," & it after workoutWeekend ifreturn workoutWeekend getStartDate-- Make up a new set of weekly summary cardson extend myParamsglobal scriptCallerput true into scriptCallerput 604800 into oneWeek -- seconds in a weekput item 1 of myParams into startWeekput item 2 of myParams into nrWeeksif nrWeeks < 1 then exit extendset cursor to busy-- deal with first card to addput the short name of this card into thisWeekif word 1 of thisWeek <> "card" thenif startWeek < thisWeek then-- must be going backwards --> make new card first in loggo card 1 of this bkgnddoMenu "New Card"doMenu "Cut Card"go prevgo prevdoMenu "Paste Card"else if startWeek = thisWeek + oneWeek thendoMenu "New Card"else -- must be adding from endgo last card of this bkgnddoMenu "New Card"end ifend ifprepareCard startWeekrepeat with count = 1 to nrWeeks-1add oneWeek to startWeekdoMenu "New Card"prepareCard startWeekend repeatput false into scriptCallerend extend-- Fill in dates of weekdays, etc. on blank weekly log card-- Assumes week starts from Mondayon prepareCard thisDayput 86400 into oneDay -- seconds in a dayset the name of this card to thisDayput thisDay into itconvert it to long datedelete item 1 of it -- get rid of name of day and commadelete char 1 of it -- get rid of spaceput it into bkgnd field "Week"-- Now add each of the dates. Due to internationalization,-- cannot assume format of long date to get date easily.-- Instead, check short date, and assume that if separator is "/",-- we are dealing with US date (month first); if it is ".", we-- assume European date (date first)if offset(".",the date) > 0 thenput "." into separatorelse put "/" into separatorrepeat with index = 1 to 7put item index of dayNames into myDay--convert each day so that date rolls over to "1" at end of monthput thisDay into itconvert it to dateif separator = "/" then delete char 1 to (offset("/",it)) of itput char 1 to (offset(separator,it)-1) of it¬into field ("Day" && index)add OneDay to thisDayend repeatend prepareCard</script>
